program basicpointer ! Tests that pointers can be passed as a parameter.

end program basicpointer
subroutine sub(z) !<<<<< 4, 1, 4, 5, integer; intent(in); pointer :: y, 0, null, pass
    integer, intent(in) :: z
end subroutine
